﻿Public Class KNThamSo
    Private dt As New Database_
    Private sql As String
    Public Function DSTS() As DataTable
        sql = "select * from THAMSO"
        Dim data As DataTable = dt.execQuery(sql)
        Return data
    End Function
   
    Public Function SaveTS(ByVal data As DataTable) As Boolean
        sql = "select * from THAMSO"
        Return dt.ExecUpdate(sql, data)
    End Function
    Public Function LuongCB() As DataTable
        sql = "select t.LuongCB,t.NgTra from THAMSO t"
        Dim data As DataTable = dt.execQuery(sql)
        Return data
    End Function
    Public Function LayMaNV() As DataTable
        sql = "select t.MaNV from THAMSO t"
        Dim data As DataTable = dt.execQuery(sql)
        Return data
    End Function
End Class
